home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / lang / false11.lha / False_v1.1 / other / countwl.f < prev    next >
Text File  |  1992-09-02  |  220b  |  20 lines
  1. {countwl.f}
  2. {count lines and words }
  3. 0a:0b:0c:
  4. [^$1_=~]
  5. [$10=
  6.   [a;1+a:0c:]?
  7.   $$d:' =
  8.   d;'   =|
  9.   d;10=
  10.    |$
  11.      [c;~[b;1+b:1_c:]?]?
  12.      ~[0c:]?
  13.   |
  14. ]a;1-a:b;1-b:
  15. #"Number of words: "b;."
  16. Number of lines: "a;."
  17. "
  18.  
  19.  
  20.